home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / RANDOM.P < prev    next >
Text File  |  1990-09-13  |  913b  |  37 lines
  1. temp <- <primitive 110 7 >
  2. <primitive 112 temp 1        " next: " \
  3.     #( #[ 5 30 33 176 114 81 33 178 225 3 6 34 35 32 167 \
  4.  208 243 179 242 34 243 245] \
  5.     #(  ) ) >
  6.  
  7. <primitive 112 temp 2        " randInteger: " \
  8.     #( #[ 32 167 33 194 10 47 81 192 243 245] \
  9.     #(  ) ) >
  10.  
  11. <primitive 112 temp 3        " between:and: " \
  12.     #( #[ 32 167 34 33 193 194 33 192 243 245] \
  13.     #(  ) ) >
  14.  
  15. <primitive 112 temp 4        " next " \
  16.     #( #[ 16 250 1 35 241 96 250 1 32 243 245] \
  17.     #(  ) ) >
  18.  
  19. <primitive 112 temp 5        " first " \
  20.     #( #[ 16 250 1 35 241 96 250 1 32 243 245] \
  21.     #(  ) ) >
  22.  
  23. <primitive 112 temp 6        " randomize " \
  24.     #( #[ 250 0 161 96 245] \
  25.     #(  ) ) >
  26.  
  27. <primitive 112 temp 7        " new " \
  28.     #( #[ 81 96 245] \
  29.     #(  ) ) >
  30.  
  31. <primitive 98 #Random \
  32.     <primitive 97 #Random #Object #\smalltlk\prelude\random.st \
  33.     #(  #seed ) \
  34.     #( #next: #randInteger: #between:and: #next #first #randomize #new  ) \
  35.     temp 4 6 > >
  36.  
  37.